object FFConfUsoRel: TFFConfUsoRel
  Left = 267
  Top = 181
  Width = 870
  Height = 500
  Caption = 'Conferencia do uso dos Relat'#243'rios'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object dbgRelatoriosXUsu: TDBGrid
    Left = 8
    Top = 48
    Width = 388
    Height = 409
    Ctl3D = False
    DataSource = dsRelatorioXUso
    Options = [dgTitles, dgColumnResize, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'CONF_REL_DESCRICAO'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 300
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'COUNT'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end>
  end
  object DBChart1: TDBChart
    Left = 408
    Top = 48
    Width = 442
    Height = 408
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      'TDBChart')
    TabOrder = 1
    object Series1: TBarSeries
      Marks.ArrowLength = 20
      Marks.Visible = True
      DataSource = QUsoPorMes
      SeriesColor = clRed
      XLabelsSource = 'MES'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      XValues.ValueSource = 'MES'
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1
      YValues.Order = loNone
      YValues.ValueSource = 'COUNT'
    end
  end
  object QRelatorioxUso: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT'
      '  CONF_USO_RELATORIO.CONF_REL_DESCRICAO,'
      '  COUNT(CONF_USO_RELATORIO.CONF_FORM_NAME),'
      '  CONF_USO_RELATORIO.CONF_FORM_NAME'
      'FROM'
      '  CONF_USO_RELATORIO'
      'GROUP BY'
      '  CONF_USO_RELATORIO.CONF_REL_DESCRICAO,'
      '  CONF_USO_RELATORIO.CONF_FORM_NAME')
    Left = 64
    Top = 112
    object QRelatorioxUsoCONF_REL_DESCRICAO: TStringField
      DisplayLabel = 'Relat'#243'rio'
      FieldName = 'CONF_REL_DESCRICAO'
      Origin = 'BASE.CONF_USO_RELATORIO.CONF_REL_DESCRICAO'
      Size = 100
    end
    object QRelatorioxUsoCOUNT: TIntegerField
      DisplayLabel = 'Quant. Uso'
      FieldName = 'COUNT'
      Origin = 'BASE.CONF_USO_RELATORIO.CONF_FORM_NAME'
    end
    object QRelatorioxUsoCONF_FORM_NAME: TStringField
      FieldName = 'CONF_FORM_NAME'
      Origin = 'BASE.CONF_USO_RELATORIO.CONF_FORM_NAME'
      Size = 60
    end
  end
  object dsRelatorioXUso: TDataSource
    DataSet = QRelatorioxUso
    OnDataChange = dsRelatorioXUsoDataChange
    Left = 64
    Top = 152
  end
  object QUsoPorMes: TQuery
    Active = True
    DatabaseName = 'base'
    DataSource = dsRelatorioXUso
    SQL.Strings = (
      'SELECT'
      '  CONF_USO_RELATORIO.CONF_REL_DESCRICAO,'
      '  COUNT(CONF_USO_RELATORIO.CONF_FORM_NAME),'
      '  EXTRACT(MONTH FROM CONF_DATA) AS MES'
      'FROM'
      '  CONF_USO_RELATORIO'
      'WHERE'
      '  CONF_USO_RELATORIO.CONF_FORM_NAME = :CONF_FORM_NAME '
      'GROUP BY'
      '  CONF_USO_RELATORIO.CONF_REL_DESCRICAO,'
      '  EXTRACT(MONTH FROM CONF_DATA)'
      'ORDER BY'
      '  3')
    Left = 112
    Top = 112
    ParamData = <
      item
        DataType = ftString
        Name = 'CONF_FORM_NAME'
        ParamType = ptUnknown
        Size = 61
      end>
    object QUsoPorMesCONF_REL_DESCRICAO: TStringField
      FieldName = 'CONF_REL_DESCRICAO'
      Size = 100
    end
    object QUsoPorMesCOUNT: TIntegerField
      FieldName = 'COUNT'
    end
    object QUsoPorMesMES: TSmallintField
      FieldName = 'MES'
    end
  end
  object DataSource1: TDataSource
    DataSet = QUsoPorMes
    Left = 112
    Top = 152
  end
end
